/* OUTPUT TO C:\qadguicli\my.txt. */

/* FOR EACH prh_hist WHERE prh_tax_at = "" BREAK BY prh_part BY prh_rcp_date: */
/*     DISP prh_part prh_nbr prh_rcvd prh_pur_cost prh_pur_std prh_rcp_date   */
/*          prh_taxc prh_tax_at prh_tax_env prh_tax_in prh_tax_usage          */
/*                                                                            */
/*     WITH STREAM-IO WIDTH 150.                                              */
/* END.                                                                       */



FOR EACH tx2d_det NO-LOCK,
    EACH prh_hist WHERE tx2d_ref=prh_receiver
                    AND tx2d_nbr=prh_nbr
                    AND tx2d_line=prh_line
                    AND prh_part  BEGINS "221-0223161"
    BREAK BY prh_site BY prh_part BY prh_rcp_date:

    DISP prh_site prh_part prh_nbr prh_receiver prh_line prh_rcvd 
         prh_pur_cost prh_pur_std prh_rcp_date tx2d_tax_amt FORMAT "->>>,>>9.9<<<<"
         tx2d_curr tx2d_tr_type tx2d_posted_date tx2d_tax_code tx2d_tax_in
         tx2d_nontax_amt tx2d_cur_nontax_amt tx2d_taxable_amt tx2d_cur_tax_amt tx2d_totamt tx2d_tottax
         tx2d_taxc tx2d_tax_env tx2d_tax_type tx2d_tax_usage tx2d_rcpt_tax_point

    WITH STREAM-IO WIDTH 320.

END.
